home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS11.ADF / AmigaBasicProgs / MadLib.MSB (.txt) < prev    next >
AmigaBASIC Source Code  |  1986-08-05  |  3KB  |  78 lines
  1. CLS
  2. WINDOW 2,,,16
  3. WINDOW OUTPUT 2
  4. GOSUB sc
  5. INPUT "What is your first name? (In ALL CAPS): ",aa$
  6. CLS:LOCATE 8,28
  7. PRINT "* * THE AMAZING ";aa$;" * *"
  8. PRINT :PRINT :PRINT :PRINT TAB(12);"Enter your answers to the following questions, and Amy will"
  9. PRINT TAB(12);"write you a  story, and print it out for you on the printer."
  10. LOCATE 22,30
  11. PRINT "Press any key to start."
  12. GETKEY:
  13.   zz$=INKEY$
  14.   IF zz$="" GOTO GETKEY
  15. GOSUB sc
  16. INPUT"Enter a plural noun: ",a$
  17. GOSUB sc
  18. INPUT "Enter a noun: ",b$
  19. GOSUB sc
  20. INPUT "Enter another noun: ",c$
  21. GOSUB sc
  22. INPUT"Enter yet another noun: ",d$
  23. GOSUB sc
  24. INPUT"Enter an animal: ",e$
  25. GOSUB sc
  26. INPUT "Enter another noun: ",f$
  27. GOSUB sc
  28. INPUT"Enter another noun: ",g$
  29. GOSUB sc
  30. INPUT"Enter an adjective: ",h$
  31. GOSUB sc
  32. INPUT"Enter a noun: ",i$
  33. GOSUB sc
  34. INPUT"Enter an adjective: ",j$
  35. GOSUB sc
  36. INPUT"Enter a liquid: ",k$
  37. GOSUB sc
  38. INPUT"Enter another liquid: ",l$
  39. GOSUB sc
  40. INPUT"Enter an adjective: ",m$
  41. GOSUB sc
  42. INPUT"Enter a noun: ",n$
  43. GOSUB sc
  44. INPUT"Enter a funny word: ",o$
  45. GOSUB sc
  46. PRINT "I am now ready to print out your story! Make sure my printer"
  47. PRINT :PRINT TAB(10);"is turned on and has paper in it."
  48. PRINT :PRINT :PRINT :PRINT TAB(20);"Press any key when you are ready to print."
  49. GETKEY2:
  50.   zz$=INKEY$
  51.   IF zz$="" THEN GOTO GETKEY2
  52. WINDOW CLOSE 2
  53. WINDOW OUTPUT 1
  54. LPRINT TAB(18);"* * THE AMAZING ";aa$;" * *"
  55. LPRINT:LPRINT:LPRINT
  56. LPRINT "Recently on TV, I saw an amazing magician and escape artist."
  57. LPRINT "Both of his ";a$;" were laced up in a strait jacket and he was"
  58. LPRINT "suspended by a ";b$;" 60 feet in the air over a busy ";c$;"."
  59. LPRINT "And he escaped! A man who can do that must be a real ";d$;"."
  60. LPRINT "I saw a magician once who put a ";e$;" in a ";f$;" and then"
  61. LPRINT "waved his magic ";g$;" and made it disappear. I saw another"
  62. LPRINT h$;" magician who sawed a beautiful ";i$;" in half right on"
  63. LPRINT "the stage. If you practice, hard there are several ";j$
  64. LPRINT "magic tricks you can learn to do. For instance, you can learn"
  65. LPRINT "how to take a glass of ";k$;" and turn it into ";l$;". Or"
  66. LPRINT "you can wave a ";m$;" wand in the air and make it turn into a"
  67. LPRINT "red ";n$;"! All you have to do is memorize the secret"
  68. LPRINT "magic word: '";o$;".'"
  69. LPRINT:LPRINT:LPRINT
  70. LPRINT "I hope you like your story,"
  71. LPRINT "                            Love,"
  72. LPRINT "                                 * Amy *"        
  73. END
  74. sc:
  75.   CLS:LOCATE 9,10
  76.   RETURN
  77.   
  78.